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Gli operatori logici usati insieme all'istruzione IF, ti 
permettono di verificare Quinterno del programma più 
condizioni contemporaneamente. 

Gli operatori logici sono AND, OR, NOT, ma quelli usati 
solitamente sono l'AND e l'OR, chiomati anche 
rispettivamente prodotto logico ( * ) e sommo logico (+ ). 
Devi usare gli operatori logici nello formo: IF (condiz. 1 ) (op. 
logico) (condiz. 2) THEN (una istruzione). 










Naturalmente puoi usare anche più di un operatore logico e 
di conseguenza più di due condizioni. 

Usando l'AND il test risulterà vero, cioè verificato, se entrambi 







In pratica l'AND svolge la funzione della congiunzione E, 
come nella frase: 

SE SUONA IL TELEFONO E BUSSANO ALLA PORTA ALLORA 
RISPONDO. 

Mentre TOR svolge la funzione della congiunzione OPPURE, 
come nella frase: 

SE SUONA IL TELEFONO OPPURE BUSSANO ALLA PORTA 
ALLORA RISPONDO. 

Puoi anche scrivere invece dell'AND o dell'OR 
semplicemente i segni * e +, in tal caso dovrai racchiudere 
ogni condizione tra le parentesi. 
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Ad esempio: 


10INPITTNUMERO (1-10)"; N 
20 IF (N < 1 ) + (N > 10) THEN 10 


Oppure scriverai il nome stesso degli operatori AND e OR. 
Ad esempio: 


10 INPITPNUMERO (1 - 10)"; N 
20 IF (N < 1 OR N> 10 THEN 10 



Nei due esempi appena visti la linea 10 chiederà un numero 
tra 1 e 10. 

Lo 20, nel caso il numero inserito è minore di 1 oppure è 
maggiore di 10, cioè se non è accettabile, prowederà a far 
ripetere l'inserimento. 
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Naturalmente puoi forzare la priorità di una condizione 
usando le parentesi come fai nelle assegnazioni. 

Per sapere se un test con più condizioni è vero, ti conviene 
sostituire ogni condizione con un 1 se è vero o con uno 0 se 
è falso. 


Quindi in: 

10 B = 2:M = 5:T=2 

20 IF (B < 3) * ((T = 1 ) + (M > 3)) THEN PRINT "VERA". 

X 





A0 B=2:tf=5:T=2. . 


THÈN PmT 
“VERA" 




Il test incomincerà od analizzare le 
condizioni tra le parentesi più interne, 
quindi nella condizione posta in linea 20 
(CT = 1 ) + (M> 3)) risulterà che: 

(T = 1 ) è falso dato che invece in lineo 10 
T è uguale a 2. 

Quindi lo condizione diventerà (B < 3) * 
((0) + (M >3)). 

(M> 3) è vero doto che M =5. 

Perciò: (B<3)*((0) + (1)). 


Facendo l'ORtro le due condizioni, doto che almeno una è 
vera, (( 0 ) + ( 1 )) risulterà vero. 

A questo punto lo condizione si ridurrà o: (B < 3) * ( 1 ). 
Anche lo condizione ( B < 3) è vera dato che B è uguale a 2 
e quindi risulterà: ( 1 ) * ( 1 ). 

Allo fine, facendo l'AND, doto che entrambe sono vere, il 
6 test risulterà vero. 



Listato dell'esercizio: ESEMPIO PRATICO 
PER L'UTILIZZO DELL'AND E DELL'OR 


10 PRINT "Premi S o N" 

20 GET A$ 

30 IF ( A$ <>"S" ) * ( A$ 0"N" ) THEN 20 
40 PRINT"Inserimento accettato" 


Listato dell'esercizio: COMPLETA IL LISTATO 

10 DIM|*|(15),B$(15) 

20 INPUT"QUANTI NOMI(1-15)|*| 

30 IFN>15 THEN|*| 

40 F0RK=1T0N 
50 INPUT"NOME";|*| 

60 NEXTK 
70 H=1 

80 FOR|*|TON 
90 F0RK=1T0N 

100 IFA$(I)<A$(K)|*|H=H+1 
110 NEXTK 

120 IFB$(H)<>""THEN|*|:GOTO120 
130 B$(H)=A$(I):|*|:NEXTI 
140 F0RK=NT01STEP|*| 

150 PRINTB$(K) 

160 |*|K 
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PROGRAMMIAMO INSIEME (VIC 20) 


10 P0KE36879,127 
20 PRINTCHR$(144) 

30 INPUT"PAR0LA";P$ 

40 L=LEN(P$) 

50 F0RK=LT01STEP-1 
60 C$=C$+MID$(P$,K,1) 

70 NEXTK 

80 PRINT"PAR0LA INVERTITA:":PRINTC$ 

PROGRAMMIAMO INSIEME (CDM 64) 


10 POKE53280,7 :POKE53281,7 
20 PRINTCHR$(144) 

30 INPUT"PAROLA";P$ 

40 L=LEN(P$) 

50 F0RK=LT01STEP—1 
60 C$=c$+MID$(P$,K,1) 

70 NEXTK 

80 PRINT"PAROLA INVERTITAPRINTC$ 

Soluzione dell'esercizio 
"COMPLETA IL LISTATO" 

(apparso nella lezione n. 18) 

10 DIMD(12) 

20 PRINT"ISTOGRAMMI" 

30 INPUT"QUANTI DATI(1-12)D 
40 IFD=0THEN30 
50 IFD>12THEN30 
60 F0RK=1T0D 
70 INPUT"DATO";D(K) 

80 IFD(K)> ATHENA=D(K) 

90 NEXTK 

100 F0RK=1T0D 

110 GOSUB200 

120 NEXTK:END 

200 L=INT((D(K)/A)*21) 

210 F0RW=1T0L 
220 PRINT v ; 

230 NEXTW:PRINT: RETURN 



